Thema Datum  Von Nutzer Rating
Antwort
28.04.2014 16:34:13 Corina
NotSolved
28.04.2014 17:31:35 Gast66399
NotSolved
29.04.2014 09:05:24 Corina
NotSolved
29.04.2014 12:19:16 Gast58210
NotSolved
29.04.2014 12:29:18 Gast58210
NotSolved
29.04.2014 13:04:44 Gast93132
NotSolved
Rot >GetShapeConnectors< noch n kl. Fehler rausgeworfen
 29.04.2014 13:11:11 Gast42193
*****
Solved
29.04.2014 14:35:21 Corina
NotSolved
Rot Ok
 29.04.2014 18:25:38 Gast80647
NotSolved
30.04.2014 09:01:00 Corina
NotSolved
30.04.2014 09:23:15 Corina
NotSolved
30.04.2014 14:18:11 Gast46487
NotSolved

Ansicht des Beitrags:
Von:
Gast42193		 Datum:
29.04.2014 13:11:11		 Views:
830		 Rating:
     
Antwort:
 Nein
Thema:
>GetShapeConnectors< noch n kl. Fehler rausgeworfen

Heute scheint nicht mein Tag zu sein.

So ist es nun korrekt:

Public Function GetShapeConnectors(Shape As Excel.Shape) As VBA.Collection
  
  Dim shp As Excel.Shape
  Dim shpChild As Excel.Shape
  
  Set GetShapeConnectors = New VBA.Collection
  
  For Each shp In Shape.Parent.Shapes
    If shp.Connector Then
      With shp.ConnectorFormat
        If Shape.Type <> msoGroup Then
          If .BeginConnected Then
            If .BeginConnectedShape Is Shape Then
              Call GetShapeConnectors.Add(shp)
            End If
          End If
          If .EndConnected Then
            If .EndConnectedShape Is Shape Then
              Call GetShapeConnectors.Add(shp)
            End If
          End If
        Else
          For Each shpChild In Shape.GroupItems
            If .BeginConnected Then
              If .BeginConnectedShape Is shpChild Then
                Call GetShapeConnectors.Add(shp)
              End If
            End If
            If .EndConnected Then
              If .EndConnectedShape Is shpChild Then
                Call GetShapeConnectors.Add(shp)
              End If
            End If
          Next
        End If
      End With
    End If
  Next
  
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.04.2014 16:34:13 Corina
NotSolved
28.04.2014 17:31:35 Gast66399
NotSolved
29.04.2014 09:05:24 Corina
NotSolved
29.04.2014 12:19:16 Gast58210
NotSolved
29.04.2014 12:29:18 Gast58210
NotSolved
29.04.2014 13:04:44 Gast93132
NotSolved
Rot >GetShapeConnectors< noch n kl. Fehler rausgeworfen
 29.04.2014 13:11:11 Gast42193
*****
Solved
29.04.2014 14:35:21 Corina
NotSolved
Rot Ok
 29.04.2014 18:25:38 Gast80647
NotSolved
30.04.2014 09:01:00 Corina
NotSolved
30.04.2014 09:23:15 Corina
NotSolved
30.04.2014 14:18:11 Gast46487
NotSolved